program pi_;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  x,y: real;
  i,n: cardinal;
begin
  n:=0;
  randomize;
  for i:=1 to 4200000 do
  begin
    x:=2*random;
    y:=2*random;
    if(((x-1)*(x-1)+(y-1)*(y-1))<=1) then
      n:=n+1;
  end;
  writeln(4*n/4200000);
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

